home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 July: Mac OS SDK / Dev.CD Jul 97 SDK2.toast / Development Kits (Disc 2) / ScriptX / Code Samples / untested / tcpip / browser / build.sx < prev    next >
Encoding:
Text File  |  1996-05-21  |  781 b   |  32 lines  |  [TEXT/ttxt]
  1. --<<<
  2.  
  3.  
  4. if not (isdefined tcpstream) do process (new loader) "loadable/web"
  5.  
  6. if not (getmodule @WidgetInterface) do
  7.     tc := open librarycontainer \
  8.         dir: thestartdir \
  9.         path: "widgets.sxl"
  10.  
  11. filein theScriptDir name: "modules.sx"
  12. filein theScriptDir name: "demo.sx"
  13. filein theScriptDir name: "present.sx"
  14. filein theScriptDir name: "html.sx"
  15. filein theScriptDir name: "webb.sx"
  16. filein theScriptDir name: "applet.sx"
  17.  
  18. function maketc -> (
  19.     local tc := new titlecontainer dir: theScriptDir path: "web.sxt"
  20.     append tc (getmodule @WebBrowser)
  21.     append tc (getmodule @HTMLImplementation)
  22.     append tc (getmodule @WebImplementation)
  23.     tc.startupAction := (tc ->
  24.                             if not (isdefined tcpstream) do process (new loader) "loadable/web"
  25.                             foreach tc load undefined)
  26.     close tc
  27. )
  28.  
  29. -->>>
  30.  
  31.  
  32.